home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 32
/
PCMania CD32_2.iso
/
bioforge
/
script
/
tungrav.scp
< prev
next >
Wrap
Text File
|
1995-02-23
|
9KB
|
899 lines
{ GRV_LOAD
P ~ÇÇ
O $ÇÖ
B `üî
I ^ç╖ = 0 THEN
{
^äï = 15
^äî = 1
^äì = 13
^äÄ = 15
^äÅ = 1
^äÉ = 11
I ^ç¿ THEN
{
^ç¿
^ç⌐
^ç¬
^ç½
^ç¼
^ç¡
}
^ç¿ = 0
^ç⌐ = 0
^ç¬ = 0
^ç½ = 0
^ç¼ = 0
^ç¡ = 0
^ç¿ = @Çì RK0
^ç⌐ = @Çì RK1
^ç¬ = @Çì RK2
^ç½ = @Çì RK3
^ç¼ = @Çì RK4
^ç¡ = @Çì RK5
@Ç║ `ëí $üë "Aaaieeee!?FAaaieeee !"
~ÇÇ = @Çÿ `ëí
~ÇÇ 10000
M FALLING 25 CONTINUE
@Ç╢ ZIPPY LXLAUNCH LXDEST 5 0 0 0 CARRY CURFIG
@Ç¥ KILLLEX
é
}
E
I ^çº = 0 THEN
{
^äï = 15
^äî = 1
^äì = 13
^äÄ = 15
^äÅ = 1
^äÉ = 11
I ^ç¿ THEN
{
^ç¿
^ç⌐
^ç¬
^ç½
^ç¼
^ç¡
}
^ç¿ = 0
^ç⌐ = 0
^ç¬ = 0
^ç½ = 0
^ç¼ = 0
^ç¡ = 0
^ç¿ = @Çì RK0
^ç⌐ = @Çì RK1
^ç¬ = @Çì RK2
^ç½ = @Çì RK3
^ç¼ = @Çì RK4
^ç¡ = @Çì RK5
^äë = @Çì GRAV_ASTEROIDS
@Çì GRAV_PUZZLE
W 5 SECONDS
i LEX GTUBE
}
E
{
@Çì GRAV_LIGHTS
}
}
{ ASTEROID
< HAS_GRAVITY = 0 >
< IS_BOUNCY = 0 >
< ELASTICITY = 0 >
< IS_REFLECTIVE = 0 >
< EXTENT = 90 90 90 >
}
{ ASTEROID_HIT_LEX
I ^çº = 1 THEN
é
@Ç¢ PLAYER
A OFF
Z CURFIG OFF
G KROK
@Çå `üî 255 3072
^ï┐ = 0
@Ç║ `ëá $üë "Nooooo...!/FNooonnn...!!/GNeiiin...!"
W 9
o
║ ON
@Çì KILLLEX
}
{ GRV1_LOAD
^ê¿ = @Çê
^ê¿ 1000
}
{ GRAV_PUZZLE
P ~ÇÇ
:PUZZLE_GRAV
â
I ^äï = ^äî AND ^äî = ^äì THEN
{
I ^äì = ^äÄ AND ^äÄ = ^äÅ THEN
{
I ^äÅ = ^äÉ THEN
{
@Ç¢ PLAYER
u CURFIG OFF
^çº = 1
^äë
^ç¿
^ç¿ = 0
^äâ = 0
^ç⌐
^ç⌐ = 0
^ää = 0
^ç¬
^ç¬ = 0
^äà = 0
^ç½
^ç½ = 0
^äå = 0
^ç¼
^ç¼ = 0
^äç = 0
^ç¡
^ç¡ = 0
^äê = 0
@Ç¥ TRIANGLE
@Çì GRAV_LIGHTS
^äÉ = 0
â
^äÅ = 0
â
^äÄ = 0
â
^äì = 0
â
^äî = 0
â
^äï = 0
â
@Ç¥ ACID_VIEW
@Ç¢ PLAYER
u CURFIG ON
é
}
}
}
J #Çà
}
[ ACID_VIEW
00:00 C ACID
@Ç¢ PLAYER
A OFF
@Çå `üÅ
00:02 ^äù = 1
00:04 ^äù = 2
00:06 ^äù = 3
00:08 ^äù = 4
00:10 ^äù = 5
00:12 ^äù = 6
00:14 ^äù = 7
00:16 ^äù = 8
00:18 ^äù = 9
00:20 ^äù = 10
00:22 ^äù = 11
00:24 ^äù = 12
00:26 ^äù = 13
00:28 ^äù = 14
01:00 ^äù = 15
01:02 ^äù = 16
01:04 ^äù = 17
01:06 ^äù = 18
01:08 ^äù = 19
01:10 ^äù = 20
01:12 ^äù = 21
01:14 ^äù = 22
01:16 ^äù = 23
01:18 ^äù = 24
01:20 ^äù = 25
01:22 ^äù = 26
01:24 ^äù = 27
01:26 ^äù = 28
01:28 ^äù = 29
02:00 ^äù = 30
02:02 ^äù = 31
02:04 ^äù = 32
02:06 ^äù = 33
02:08 ^äù = 34
02:10 ^äù = 35
02:12 ^äù = 36
02:14 ^äù = 37
02:16 ^äù = 38
02:18 ^äù = 39
02:20 ^äù = 40
02:22 ^äù = 41
02:24 ^äù = 42
02:26 ^äù = 43
02:28 ^äù = 44
03:00 ^äù = 45
03:02 ^äù = 46
03:04 ^äù = 47
03:06 ^äù = 48
03:08 ^äù = 49
03:10 ^äù = 50
03:12 C UNLOCK
A ON
]
[ GRAV_LIGHTS
:LIGHTS
00:00 ^äè = 1
00:02 ^äè = 2
00:04 ^äè = 3
00:06 ^äè = 4
00:08 ^äè = 5
00:10 ^äè = 6
00:12 ^äè = 7
00:14 ^äè = 8
00:16 ^äè = 9
00:18 ^äè = 10
00:20 ^äè = 11
00:22 ^äè = 12
00:24 ^äè = 13
00:26 ^äè = 14
00:28 ^äè = 15
01:00 ^äè = 16
01:02 ^äè = 17
01:04 ^äè = 18
01:06 ^äè = 19
01:08 ^äè = 20
01:10 ^äè = 21
01:12 ^äè = 22
01:14 ^äè = 23
01:16 ^äè = 24
01:18 ^äè = 25
01:20 ^äè = 26
01:22 ^äè = 27
01:24 ^äè = 28
01:26 ^äè = 29
01:28 ^äè = 30
02:00 ^äè = 31
02:02 ^äè = 32
02:03 ò
J #Çê
]
{ TRIANGLE
^äæ = 0
^äÆ = 0
^äô = 0
^äö = 0
^äò = 0
^äû = 0
}
{ RING1
I ^çº != 1 && ^äû = 0 THEN
{
^äæ = 0
^äÆ = 0
^äô = 0
^äö = 0
^äò = 0
^äû = 1
@Çå `èÄ
^äï ++
^äÄ ++
W 8
^äï ++
^äÄ ++
I ^äï == 17 THEN ^äï = 1
I ^äÄ == 17 THEN ^äÄ = 1
â
}
}
{ RING2
I ^çº != 1 && ^äò = 0 THEN
{
^äæ = 0
^äÆ = 0
^äô = 0
^äö = 0
^äû = 0
^äò = 1
@Çå `èÄ
^äî ++
W 8
^äî ++
I ^äî == 17 THEN ^äî = 1
â
}
}
{ RING3
I ^çº != 1 && ^äö = 0 THEN
{
^äæ = 0
^äÆ = 0
^äô = 0
^äò = 0
^äû = 0
^äö = 1
@Çå `èÄ
^äì ++
^äÉ ++
W 8
^äì ++
^äÉ ++
I ^äì == 17 THEN ^äì = 1
I ^äÉ == 17 THEN ^äÉ = 1
â
}
}
{ RING4
I ^çº != 1 && ^äô = 0 THEN
{
^äæ = 0
^äÆ = 0
^äö = 0
^äò = 0
^äû = 0
^äô = 1
@Çå `èÄ
^äÄ ++
W 8
^äÄ ++
I ^äÄ == 17 THEN ^äÄ = 1
â
}
}
{ RING5
I ^çº != 1 && ^äÆ = 0 THEN
{
^äæ = 0
^äô = 0
^äö = 0
^äò = 0
^äû = 0
^äÆ = 1
@Çå `èÄ
^äÅ ++
^äî ++
W 8
^äÅ ++
^äî ++
I ^äÅ == 17 THEN ^äÅ = 1
I ^äî == 17 THEN ^äî = 1
â
}
}
{ RING6
I ^çº != 1 && ^äæ = 0 THEN
{
^äÆ = 0
^äô = 0
^äö = 0
^äò = 0
^äû = 0
^äæ = 1
@Çå `èÄ
^äÉ ++
W 8
^äÉ ++
I ^äÉ == 17 THEN ^äÉ = 1
â
}
}
{ GRAV_ASTEROIDS
P ~ÇÇ
P ~Çü
:THROW_LOOP
I @Çà 1 10 <= 7 THEN
{
W 4 SECONDS
J #Çæ
}
W 4 SECONDS
~ÇÇ = @Çà 1 5
~Çü = @Çà 1 5
N ~ÇÇ
{
U 1:
N ~Çü
{
U 1:
@Ç╢ ASTEROID AST_1A AST_1B 20 10 0 0
X Çü
U 2:
@Ç╢ ASTEROID AST_1A AST_2B 20 0 5 10
X Çü
U 3:
@Ç╢ ASTEROID AST_1A AST_3B 20 0 30 0
X Çü
U 4:
@Ç╢ ASTEROID AST_1A AST_4B 20 0 0 39
X Çü
U 5:
@Ç╢ ASTEROID AST_1A AST_5B 20 10 0 40
X Çü
}
X ÇÇ
U 2:
N ~Çü
{
U 1:
@Ç╢ ASTEROID AST_2A AST_1B 20 10 0 0
X Çé
U 2:
@Ç╢ ASTEROID AST_2A AST_2B 20 0 5 10
X Çé
U 3:
@Ç╢ ASTEROID AST_2A AST_3B 20 0 30 0
X Çé
U 4:
@Ç╢ ASTEROID AST_2A AST_4B 20 0 0 39
X Çé
U 5:
@Ç╢ ASTEROID AST_2A AST_5B 20 10 0 40
X Çé
}
X ÇÇ
U 3:
N ~Çü
{
U 1:
@Ç╢ ASTEROID AST_3A AST_1B 20 20 5 0
X Çâ
U 2:
@Ç╢ ASTEROID AST_3A AST_2B 20 10 0 5
X Çâ
U 3:
@Ç╢ ASTEROID AST_3A AST_3B 20 0 20 10
X Çâ
U 4:
@Ç╢ ASTEROID AST_3A AST_4B 20 10 0 60
X Çâ
U 5:
@Ç╢ ASTEROID AST_3A AST_5B 20 4 0 39
X Çâ
}
X ÇÇ
U 4:
N ~Çü
{
U 1:
@Ç╢ ASTEROID AST_4A AST_1B 20 15 0 5
X Çä
U 2:
@Ç╢ ASTEROID AST_4A AST_2B 20 10 0 5
X Çä
U 3:
@Ç╢ ASTEROID AST_4A AST_3B 20 10 20 0
X Çä
U 4:
@Ç╢ ASTEROID AST_4A AST_4B 20 0 50 0
X Çä
U 5:
@Ç╢ ASTEROID AST_4A AST_5B 20 12 0 30
X Çä
}
X ÇÇ
U 5:
N ~Çü
{
U 1:
@Ç╢ ASTEROID AST_5A AST_1B 20 10 30 15
X Çà
U 2:
@Ç╢ ASTEROID AST_5A AST_2B 20 0 5 10
X Çà
U 3:
@Ç╢ ASTEROID AST_5A AST_3B 20 0 0 40
X Çà
U 4:
@Ç╢ ASTEROID AST_5A AST_4B 20 10 0 5
X Çà
U 5:
@Ç╢ ASTEROID AST_5A AST_5B 20 20 0 10 SWITCH ~Çü
X Çà
}
X ÇÇ
}
â
J #Çæ
}
[ RK0
:RK0LOOP
I ^çº = 1 THEN
é
00:00 ^äâ = 1
00:04 ^äâ = 2
00:08 ^äâ = 3
00:16 ^äâ = 4
00:20 ^äâ = 5
00:24 ^äâ = 6
00:28 ^äâ = 7
01:02 ^äâ = 8
01:06 ^äâ = 9
01:10 ^äâ = 10
01:14 ^äâ = 11
01:18 ^äâ = 12
01:22 ^äâ = 13
01:26 ^äâ = 14
01:29 I @ÇÄ GRV1 THEN @Çå `ïÄ 100 2048
^äâ = 0
W @Çà 2 6 *100
I ^çº = 1 THEN
é
ò
J #Çô
]
[ RK1
:RK1LOOP
I ^çº = 1 THEN
é
00:00 ^ää = 1
00:04 ^ää = 2
00:08 ^ää = 3
00:12 ^ää = 4
00:16 ^ää = 5
00:20 ^ää = 6
00:24 ^ää = 7
00:28 ^ää = 8
01:02 ^ää = 9
01:06 ^ää = 10
01:10 ^ää = 11
01:14 ^ää = 12
01:18 ^ää = 13
01:22 ^ää = 14
01:26 ^ää = 15
02:00 ^ää = 16
02:04 ^ää = 17
02:08 ^ää = 18
02:12 ^ää = 19
02:16 ^ää = 20
02:20 ^ää = 21
02:23 I @ÇÄ GRV1 THEN @Çå `ïÄ 150 1024
^ää = 0
W @Çà 2 3 *10
I ^çº = 1 THEN
é
ò
J #Çò
]
[ RK2
:RK2LOOP
I ^çº = 1 THEN
é
00:00 ^äà = 1
00:04 ^äà = 2
00:08 ^äà = 3
00:12 ^äà = 4
00:16 ^äà = 5
00:20 ^äà = 6
00:24 ^äà = 7
00:28 ^äà = 8
01:02 ^äà = 9
01:06 ^äà = 10
01:10 ^äà = 11
01:14 ^äà = 12
01:18 ^äà = 13
01:22 ^äà = 14
01:26 ^äà = 15
02:00 ^äà = 16
02:04 ^äà = 17
02:08 ^äà = 18
02:12 ^äà = 19
02:16 ^äà = 20
02:20 ^äà = 21
02:24 ^äà = 22
02:28 ^äà = 23
03:02 ^äà = 24
03:06 ^äà = 25
03:10 ^äà = 26
03:14 ^äà = 27
03:18 ^äà = 28
03:22 ^äà = 29
03:26 ^äà = 20
04:00 ^äà = 31
04:04 ^äà = 32
04:08 ^äà = 33
04:12 ^äà = 34
04:16 ^äà = 35
04:20 ^äà = 36
04:24 ^äà = 37
04:28 ^äà = 38
05:01 I @ÇÄ GRV1 THEN @Çå `ïÄ 120 1024
^äà = 0
W @Çà 2 4 *10
I ^çº = 1 THEN
é
ò
J #Çù
]
[ RK3
:RK3LOOP
I ^çº = 1 THEN
é
00:00 ^äå = 1
00:04 ^äå = 2
00:08 ^äå = 3
00:12 ^äå = 4
00:16 ^äå = 5
00:20 ^äå = 6
00:24 ^äå = 7
00:28 ^äå = 8
01:02 ^äå = 9
01:06 ^äå = 10
01:10 ^äå = 11
01:14 ^äå = 12
01:18 ^äå = 13
01:22 ^äå = 14
01:26 ^äå = 15
02:00 ^äå = 16
02:04 ^äå = 17
02:08 ^äå = 18
02:12 ^äå = 19
02:16 ^äå = 20
02:20 ^äå = 21
02:24 ^äå = 22
02:28 ^äå = 23
03:02 ^äå = 24
03:06 ^äå = 25
03:10 ^äå = 26
03:14 ^äå = 27
03:18 ^äå = 28
03:22 ^äå = 29
03:26 ^äå = 20
04:00 ^äå = 31
04:04 ^äå = 32
04:08 ^äå = 33
04:12 ^äå = 34
04:16 ^äå = 35
04:20 ^äå = 36
04:24 ^äå = 37
04:28 ^äå = 38
05:02 ^äå = 39
05:06 ^äå = 40
05:09 I @ÇÄ GRV1 THEN @Çå `ïÄ 200 3072
^äå = 0
W @Çà 2 9 *10
I ^çº = 1 THEN
é
ò
J #ÇÖ
]
[ RK4
:RK4LOOP
I ^çº = 1 THEN
é
00:00 ^äç = 1
00:04 ^äç = 2
00:08 ^äç = 3
00:12 ^äç = 4
00:16 ^äç = 5
00:20 ^äç = 6
00:24 ^äç = 7
00:28 ^äç = 8
01:02 ^äç = 9
01:06 ^äç = 10
01:10 ^äç = 11
01:14 ^äç = 12
01:18 ^äç = 13
01:22 ^äç = 14
01:26 ^äç = 15
02:00 ^äç = 16
02:04 ^äç = 17
02:08 ^äç = 18
02:12 ^äç = 19
02:16 ^äç = 20
02:20 ^äç = 21
02:24 ^äç = 22
02:28 ^äç = 23
03:02 ^äç = 24
03:06 ^äç = 25
03:10 ^äç = 26
03:14 ^äç = 27
03:18 ^äç = 28
03:22 ^äç = 29
03:26 ^äç = 20
04:00 ^äç = 31
04:04 ^äç = 32
04:08 ^äç = 33
04:12 ^äç = 34
04:16 ^äç = 35
04:20 ^äç = 36
04:24 ^äç = 37
04:27 I @ÇÄ GRV1 THEN @Çå `ïÄ 170 1024
^äç = 0
W 10
I ^çº = 1 THEN
é
ò
J #Ç¢
]
[ RK5
:RK5LOOP
I ^çº = 1 THEN
é
00:00 ^äê = 1
00:04 ^äê = 2
00:08 ^äê = 3
00:12 ^äê = 4
00:16 ^äê = 5
00:20 ^äê = 6
00:24 ^äê = 7
00:28 ^äê = 8
01:02 ^äê = 9
01:06 ^äê = 10
01:10 ^äê = 11
01:14 ^äê = 12
01:18 ^äê = 13
01:22 ^äê = 14
01:26 ^äê = 15
02:00 ^äê = 16
02:04 ^äê = 17
02:08 ^äê = 18
02:12 ^äê = 19
02:16 ^äê = 20
02:20 ^äê = 21
02:24 ^äê = 22
02:28 ^äê = 23
03:02 ^äê = 24
03:06 ^äê = 25
03:10 ^äê = 26
03:14 ^äê = 27
03:18 ^äê = 28
03:22 ^äê = 29
03:26 ^äê = 20
04:00 ^äê = 31
04:04 ^äê = 32
04:08 ^äê = 33
04:12 ^äê = 34
04:16 ^äê = 35
04:20 ^äê = 36
04:22 ^äê = 37
04:26 ^äê = 38
05:00 ^äê = 39
05:04 ^äê = 40
05:07 I @ÇÄ GRV1 THEN @Çå `ïÄ 155 2048
^äê = 0
W 20
I ^çº = 1 THEN
é
ò
J #Ç¥
]
{ GRAVDTH
@Ç¢ PLAYER
A OFF
@Ç║ `ëá $üë "Nooooo...!/FNooonnn...!!!/GNeiiin...!"
@Ç¥ KILLLEX
}
//$ 26 - version number